WESTERN ELECTRIC REPOSITIONAL HEXADECIMAL PUNCH 

PROGRAM NO. J4-187 

Author 
J.H. Boatwright 



Disclaimer: 

"The authors of this program material, the 
Pool organization and General Precision 
believe this program to be correct; however, 
they bear no responsibility, financial or 
otherwise, for errors resulting from its use. 
This program is distributed only to individual 
and installation members of Pool. Further 
distribution of this manual and accompanying 
tapes for use by non-members is prohibited. " 
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WESTERN ELECTRIC REPOSITIONAL HEXADECIMAL PUNCH 

J. H. Boatwright 
April 18, 1960 



Purpose: This routine punches out from any given area of memory a 
relative hex tape, with check sum, which may be loaded and 
repositioned by the Western Electric Repositional Hexadecimal 
Input . 

Operation: Enter at starting address of this program. 
Enter the following data in decimal: 

(1) LoLf as xxxxyyyy 1 ; the boundaries of the area to be punched 
out. 

(2) M as xxxx'; the modifier to be subtracted from each word 
W whose operand address Aw is Lo < Aw < Lf 

(3) LohLfh as xxxxyyyy'; the boundaries of any area within 
LoLf which is to be punched in absolute form. Only one 
such entry allowed. The program uses 10.4 for the binar- 
ization of xxxx and yyyy- 

A B.P.-16 halt will now occur. Either the high-speed or 
Flexowriter punch may be turned on. If the High-Speed 
Punch is used, depress B.P.-32. 

Punching will then commence in the following order: 

(1) N' where N = the number of sectors to be punched between 
Lo and Lf in TTSS form. N = (Lf + 1) - Lo. 

Example: If Lo = 5000 and Lf = 5163, Lf + 1 = 5200, 
N = 0200 or 128 sectors. 

N is used by the Western Electric Repositional 
Hex Input to determine end of load. (N is punch- 
ed with a 1 at 31) 

(2) Words whose operand addresses fall without LoLf and all 

I orders are punched with a 1 at a q of 31. A 1 at q = 31 is 
the same as the "X" in a decimal tape, i.e. , this word is 
not to be modified on input. Words whose operand address 
fall within LoLf are punched with a "0" at a q of 31. A "0" 
at a q of 31 means that this word will be modified on input. 



(3) The check sum 

The check sum contains N and is punched with a 1 at 31 
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Stops: EP-16 at 0332, Halt to turn on Punch. 

TC: TC up: 8 words per line; TC down: 14 wards 

per line. 

Storage: 5 Tracks 

Time: On the High Speed Punch, about 48 seconds/ 
track. 



0341 

page 2 
To ask for 
NXT punch 
area 



0000 



To read 
LoLf, M, & 
Loh Lfh 



9355 4- 
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0436 



0447 



Read Boundaries of 
Area to be punched 



0302 j^ 0303 



Form &c Store 
B(Lf + 1) 



3Q4 4r 




030T" 




0450 



0447 



Store 
B(Lo) 



307 A, n3 pft 



Read & 
Binize M 



at first B(Lo) = B(Ln) 




309~T 




0436 



0447 



Read Modifier 




03 ]4 + n^V i 

Read 
Loh Lfh 
Binize Lfh 





0436 



0447 



0316 



CR 



) 



Read Boundaries of any 
area within LoLf ♦« 
be punched in absolute 
form regardless of 
content. 



317 ^ 0318 



Form 
B(Lfh + 1) 



on pages 
3-7 



punch out 
from Lo to 
Lf 



0300 page 1 



t 



UJlLL 



Clear 
CRNT— »0 




_Q321 




0450 



0447 



322 J, 



Store 
B(Loh) 



.0323 



0325 



Form &Store 
(Lf + 1 - M) 



0326 { 0328 



Form & Store 
(Lfh + 1 - Loh) 



,032,9 



1- 



O 



0330 



I 



0331 



B(Lf + 1) - 

B(Lo) 
= N 



0332 I 



BP 16 

Tufrion 

P'CH 



Halt 



O V34 Jr ov ^ 
'Punch N' "\ 3 5 1 
with a 1 at 31 & 
t add N to J & com/ 0116 
mence Pch 



T 



First exit 
here when entire area 
has been punched 



0336 I 0337 



Store S 
in W 



<> 
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so that a CR will be given after 
N 1 is punched and CRNT will be 
set to proper CR constant. 



N will be first number to be added 



N - number of Sectors between 
Lf and Lo in TTSS Form, 

Ex: if Lo = 5000 

Lf = 5163 . . Lf + 1 = 5200 

N = 5200-5000 = 0200 

N = 128 sectors or 0200 or 2 Tracks 



3 39 



0340 
0001 



Relay for CR 




Punch £, ' 

with a 1 at 31 

Sll6 page 5 

"~r Se"cond exit 



Page 3 



here to punch a hex word 
from page 6 and page 7 



here to punch 



a - inst 

or - hex wordyjt 

from page 6 



V 
punch 

8 digits 



4r 



0007 



0008 



Prepare to 
Punch 7 
Digits 



0009 



0010 



Bring W 
into ACC 



0351 si 



Store 


N to 


W 


0363 


-.' 


0401 


To in 


Ltialize 


B(Ln 


> to 




B(Lo 


- 1) 





0001 



I 



Prepare to 
^ punch a 
1 at 31 



0003 



I 



Bring in 
W 



0004 



-W 



+ W? 



0005_ 



0006 



No / 0-»-3 

Vacant' 



Y ^ S 01 22 



0-^,7 
Vacant?/ 



Yes 
013 5 ^ 0136 



No 



0-»ll 
Vacant?, 



No 



0129 



Yes 
0128 j 01 29 

0-»15 \ No 



Vacant?, 



page 6 
command 0221 



Yes 
j 0222 



'0-^19 
Vacant? 



No 



Yes 



V0012 page 4 



0228 
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here to punch £ ' page 2 



_^. punch 7 digits 
0123 



0126 



Prepare to 
Punch 6 
Digits 



_^ punch 6 digits 



0011 



0137 



0140 \' 



Prepare to 
Punch 5 
Digits 



-Jfpunch 5 digits 
0130 



0133 



Prepare to 
Punch 4 
Digits 



V 



_^ punch 4 digits 
0223 



0225 V 



Prepare to 
Punch 3 
Digits 



Page 4 OOlIf 



From page 3 

To punch 8 digits 



page 5 
0042 



>f 



Shift WTP 
Left 4 fits 




T 

No 



Ready 
To Punch 
Last Char 



0031 



Print Hex Char. 
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0228 



1_ji 



Q230 



229 



, 23 , 

[Vacant? )" N ° ->P«»<* 3 

digits 



0233 



Prepare to 
Punch 2 
Digits 



Yes 
0235 0236 



0311 




punch 2 
digits 



2JO. 



0240 



Prepare to 
Punch 1 
Digit 



Shift W 31 
left to 21 



Prepare to punch last digit 
+ or 1 at 31 



om 



L-t 



Shift 1st 
Character of 
W to 3 



0012 



-) 



Store in 
WTP 



0013 



Shift 

Character at 
3 to 20 



QQB T 



Extract 

4 high order 

bits of Track 
Pos 



0015 



OOlfS 



Add Print 
Constant & 
Store 



0017 



I 00 



24 



Sub. 1 from 
SCNT 



ACC contains a 
1 at a proper q 
to shift 1st char- 
acter of W to 3 



Hex punch all except 
last character 



V *t •»■** I 



Page 4 
0313 






039 


0041 




More last 
Digit of WTP 
To 21 


( 


ic\a? , 




Add factor to 
Punch last 
Digit & punch 
1 or at 31 


t 




3043 ,, 




Store in Print 
Order 




0047 , 


ons6 




Form Check 
Sum S. 




no^R 





,0417 



Q423 



Give CR &De- 
lays & load 
proper CR cnt 
Depending on TjC 



0106 



1 



CRNT 
+ ? 



No 



Punch Last 



) 



0059 1 0062 



Finish Check 
Sum 2 



0063 



.aim 



Reduce 
W/line Cnt 
by 1 



Q1Q3 



on?. 



Advance to B 
(Ln + 1), delay 
for 0058, 
Punch "1" 




End of 
Area? 



I 



♦ 0146 



es 
0116 U ( ) 
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Punch Last Char. 
at 31 



with 1 or 



W/line cnt = CRNT 
counts for C. R. 



Exit set to: 

First, 0336, to Punch 2 
Second, 0341, after punching 2 to go 
to 0300 



0045^. 



Yes 



Punch "1" at 
31 



0146 



Bring Ln 
Word to be 
Examined 



Store in W 



OlhSL 



/OhsLniLph 
fLn is in area 
\to be punched i 

in hex? 



0204 $L 



No 



1205 




+ W? 

+ w 

2061 0207 




0208 



page 




12210 



Check for 
Command or 
Hex 
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Yes 



-*> punch in hex 
Page 3 0001 



0406 



W 



0406 



Check for 
Command or 
vHex 



0407 




0243 



0156 




0243 



0156 



-is 
0063 Page 5 



0007 
page 3 



If hex, out to 0001 to begin 
Hex print. 

Here if command. 
(Relative or absolute 
Command) - 1 15 in 
ACC 



0129 
page 3 
Test for 0- 
Vacant 



•15 



Check for Command or Hex 
0208 or 0406 

I 

W in ACC 
0241_i Q246 



'Command or 
Hex 



Hex 
"* 0001 page 3 
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Should the command be 
punch as relative ? 



Prepare to punch a 
relative Inst. 



Prepare test for 
— *15 vacant 



Command 
0248 Jc_ 02 51 




Set up to punch 

a "o" at 31 



azhn >t ozfa 



W - 3M 
= Relative 
Command 



.01,54 



Store in W 



0155 4, 



Sub 1 15 



Yes 



0413 



0413 



Set up to 
Punch a "1" at 

31 
1 



Put W in ACC 



0454 >/ 



Prepare 
to punch 
an 

absolute 
Inst. 



J -1 15 in 

0156 U (exit) Command or Hex test with command ACC 
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PROG NO 



-PREP BY 



CK D BY 
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J4-187 



TOBLEM. 



Repositional Hex Punch 



PROGRAM INPUT 
CODES 


a. 


>• 

M, 


LOCATION 


INSTRUCTION 
OP. ADDRESS 


a. 



CONTENTS OF 
ADDRESS 


NOTES 


1 
1 1 1 1 1 1 1 


J 


Fi ... 

l_lA1... 

! , 0,2 




i 


"' 

—■ to read Lo '. 
XP 0609 Prep; 
|_ 0246 


Lfi _.M.». and Loh Lfli 

ire to punch a word witl 

0200 0402 0340 

8 digits 


| 


1 


1 

^ x ,11^0,3,5,5 


1 

1 1 1 | 1 1 1 


, i .B, 0, 4, 1,6 

i , ,Cj 0,4, 5,7 






P(L, 1 at 31 






, , 0,3 


i , ,B|0,4,3,3 'iXl W hex wore 






i i 0.4 


i i .T, 0,0, 0,7 


■ 


W is (-) punch 






■ , 0;5 


, | ,S, 0, 0; 2 ,0 


i 


lj 3 






, . . 0,6 ; , , ,TiO, 1 : Z i 1 i ' 


— * bits O — -3 are vacant ..... 


1 til. L. .. i... i..._. 


— 


, .0,7 ! , i 5,0,0,2,2!'^ 6,29 Setup 


- 0004 
to punch 8 —0408 




; ,0,8 , . ,C ,0,4,0,3 ' IS rnf rfiaitR 






^_1— l-J-.0,9 


i i iB | i 4 i 3 , 3 ' ! W 






; , 1:0 


_j_-l iU,0 J i l_ J 2 


, t 

; to begin Punch 8 digits 

LW JI shift 1st char- 01 40 0126 0233 
' iXacter of W t© 3 0226 0133 0240 






J_ L.U 


l _l ,N , , 4 ; 3 ■ 3 






, , 1,2 


— l_^_ j H ) .0 j _4 l 6„ l 2 j :_ 


WTP Word to 


- 0010 
Print - 0035 

11 to track position 






j j_1 L 3 


, L ,M, , L 2 ,8 

, j ,E | , , 2 , 9 
i i iA j i0 i 3 iO 


• 


1.18 shift to 2 






l. _i_M 


__iXZ .60.00. pull 4 
' Xl XP 074A TT 


_high_order_ track bits 






i l_Ii5 h 






.j_. j_.]i6.. 


l i_ iC j i i 3 il_ 




P.[_jdig.itJ_ to 
S cnt 


punch . . 

strokes 






_i_.^y. 


L- L ., B | 0ili.° J .3 H 
l_e ^,0,0,2,4 


• 




— 


_i_i_L9 


* 

• 
■ 


1 ? 29 Count 




• i_°« °j°U °uPi 0^2 




, , 2,0 


ljOiOjO^OjOiOjO 


1^,3 


0005 




._... 


, i 2,1 


4,0,0,0,0,0,0,0 


.1,1 .._ .._.._. 

6,29 


0049 0056 ' 




i , 2,2 


, ,X,Z t ,0 ,0 ,6 


" """"" 0007 


..i_l0.i^i0i0 j ..0 j _0 j 1 




1 Li|3_ 


3 ,WiWiW|Wiw,w,q 


7 
X 1-1 -1,30 


0051 




j_ i_M. 


I 


J 7 

S cnt 


" "- 0019 


i i i i i i i 


■— 


-L-_i_iii 


_i_jl_ ^^.9x3 J 


i 




0155 
0013 
0014 


i -l_2|6 


i ]X L Z_jO |0 i0 ,0 


I 

■ 


Vacant 

a..i,j.5 

1,18 

mask 


._. 


i 1..A8 _ 


_.x-iX 1 B f q_ J p_ 1 OL 
._ L_j.X L Z|3i2 iO iO 


i i i | i i i 


i i 2,9 


i |X|Z,6 ,0 ,0 ,0 


i i i 1 i i i 




.... i 3,0 

, , 3.1 


, ,X,P f ,2 ,4,6 
, i ,P,( , , ,) 


i 


to form print c 
X Punch a dig 


0015 

rder „„, , __ __ 
0016 0025 
it 


i i i i i i i 
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PROG. NO. 



PREP BY 



CK'D. BY_ 



PROBLEM. 



R epositiona l Hex Punch 



PROGRAM INPUT 
CODES 


0. 



K 


LOCATION 


INSTRUCTION 
OP. AODRESS 


j CONTENTS OF 
'„ AODRESS 


NOTES 




1 
1 1 I 1 | I 1 


• 


a 










1 1 1 1 1 1 1 


1 








Q O, 3,2 


1 

, , ,T,0 ,0,3,9 


— •" to punch las 


; digit 








, , 3,3 


1 
i , ,B|0,4,6,2 


WTP 










, , 3,4 


, , ,N,0 ,1,2,0 


lj»27 move lei 


t 4 bits 








, , 3,5 


i 
, , ,U|0 ,0,1,2 


XI -*to continu 


2 hex word punch 




,,0,0, 0| 0, 0, 0, 1 




i , 3,6 


w,w,WiW|l ,0 ,0 ,0 


1,19 -1.15 


0221 








, , 37 




Vacant 










: , 3,8 


, .X.Z.O ,0,0,2 


2*29 


0223 








I i 3,9 


, ,X,Z|3, 2,5,4 


X delay for ne 


-0039 
ct to last digit 








, , 4,0 


, , 3,0,4,6,2 


WTP 7 










, , 4,1 


, , .M.O ,1 ,2 ,7 


1 «14 move las 


t digit to 21 








, , 4,2 


, , .A.,0 ,4,5 ,7 


F(L) P(L) =X 
To punch 1 or 


P0609 or XP 0209 
at 31 —0313 








o_ l 4 t 3 H 


j_ L jYjdO.jSiS 


XI P(Last digil 


:) 




1 1 1 1 1 1 1 




, , 4,4 


i , iU ( 0i0i4j7 


to form check 


sum 2 




here if W = O 

i i i 1 i i i 




i 4,5 


_l iXiPjO 161O i9- 


"1" al sn const. 


u i * 7, —020 






.x i 4,6 


._.i_l...iU.|0 ,0 ,6i3. .. 
, , ,B|0 .4 ,3 ,3 


-~ * end of hex w 


ord punch 








. , 4,7 


'1X1 w 


0044 








, ; 4,8 


, ■ ,T|0 ,2 .1 ,2 


-W to a 


dd 1 1 








, , 4,9 


, , ,S.O ,0 ,2 ,1 


1 J 1 










i i 5,0 


, , ,T,0 ,2 ,1 ,6 


to add 1,1 


- 0213 








, , 5,1 


, , ,S,0 ,0 ,2 ,3 


7 

X3 i,i - 1,30 










, , 5,2 


, , ,T.O ,2 ,1 ,6 


J 7 

to add 1 ^1 










, i 5,3 


, , ,A.O ,4 ,3 ,2 


1.30 










, , 5,4 


, , .A.,0,4,4,0 


2 


-0217 








, , 5,5 


, , ,U,0,0,5,6 


X 










, , 5,6 


, , ,S,0 ,0 ,2 ,1 


1 «! 


— 0055 








■ , 5,7 


i i jTJjO ,0,5,8 


? 










i , 5,8 


i iXiP|[3 8, 0,9] 


punch last digit 


0043 
with 1 or Oat 31 —0057 








i , 5,9 


, , ,^0,2,1,9 


X To add 1 1 










, i 6,0 


i i .SO ,4 ,2 ,5 


1,1 - 1,30 










, , 6,1 


i 
i i ,Ti0 i2 il .9 


? 7 

To add 1^1 










_^_j.Ji_2 


1 
, i ,0,0,4,4,0 


2 


— 0220 




i i i i i , i 




, , 6,3 


T 

, , .B.0,4,4,9 


X CRNT Word 


„. - 0046 
/line Counter 





CONDITIONAL STOP CODE 
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E 



D73I7* MCBEE TORONTO CA1M0A 
FORM '802 



CARRIAGE RETURN 



JOB NC 


_. - PROG. NC 

F _ 


m 
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NO. 1 
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J4-187 

K D. BY ... DATE. ........ 

TRACK . .. .. . 


PROBL 


R ..positional Hex Pun^b 










PROGRAM INPUT 
CODES 


a. 



r- 


LOCATION 


INSTRUCTION 
OP. ADDRESS 


a. 

t- 


CONTENTS OF 
ADDRESS 


NOTES 




1 
1 1 1 1 1 1 1 


> 


EL 

0, 1 , 0,0 




i 


1(2>29 "[Reduce 






1 ...J._ _l | J 1 1 

- .1 1 _l_ J L_ J ±. _ 


1 




A , ,S,0 ,3 ,4 ,5 


CRNT 








. Lli.1 


I 
L ^ ,C ^0 A 4 L 4 j.9 


■ 
i 


CRNt/ by 1 

to check for end of Area 




1 1 1 | 1 1 1 




__i____2 


i i -U|0 ,1 ,0 ,3 




— 1 J L jj 1 1 1_ 




_____! 03 


La .B^O t l ^j6 


■ 


^ 1 - 0102 
XlB(Ln) advance to B(Ln + 1) 




1 1 1 | 1 .1 . . J 




_. i i 0,4 


, i A |0 ,3 ,4 ,7 


1 




1 29 






- _1 _l 1 1 1 i 1 




-j__l.0j5 


i i ill |0 .1 i0 i9 


t_Q_delay_i__r_iab.t. digit 

— 0113 
CRNT j 




- 1 !...___ _|__ 1 L _J 




______ 0,6 


, , ,B (0 ,4 ,4 ,9 




LI X J. ..J J _L 




..____. Q___ 
__ ____8 


._u.a...LT,0. 1 4..il.jL. 
___. TJ,0 L 1^4 ,6 


■ 


J\ —"time to give CR 




1)11,1 i 




<NOT Time for CR — - to examine next woi 




... L ._L_... 1 1 1 1 1 




j i. L 9 


_.__*. Z ., 3 2 ,5 9 
.i i i H |o ,1 i4 ,6 


' :delay for last 
' 'B(Ln + 1) 


,. .. - 0105 
dl gi_... 




1 1 1 1 1 1 l 




a i 1,0 




_J L_L. | J 1 L 




i L U 


. a ........ l.S JO. ,4 ,2 ,6 

, ,X,P,3 ,2 ,2 7 


' ^B(Lf + 1) ! 




1 1 1 1 1 1 l 




i i 1i2 


i 


M i ii 
-"NOT end of Area — - to check for CR 




1 1 ' 1 1 1 1 


i i 1_3 i , ,T,0 ,1 ,0 ,6 ' 




1 1 l l l i i 




j j 1,4 


___._.< .Z.jO ,0 ,3 ..,9... 
_jl_ iXiFjl l6 iP L l 


i 


end of area; de 
__ CR 


slay for "1" 




1 1 1 I 1 1 1 




___l_i_L5 






l 1 I I 1 | j 


— 


. 1_ __!_.. 

j L...L7. 


, , .Ujf 34 1 1 


, 


" 03 34 
EXIT punching END AREA 03 39 . ....... 




1 1 ...J | 1 1 1 


i i 


Vacant 






( „Z_ tf<? .... tzfrka ) 




j. i 1.8 


i 
-_i_l_iZ_iO.0_iO._jO_ 

i 


i 

I 


Modifier. ZM_ 
XI Vacant 

1 7 .27 

.... l/Z...- 1,3 ...... 

— - bits O — 7 ar 
X] 5,29 Prepa 

S cnt 
1^27 to shift 1 

~. 1,14 ...... 

1 ,15 - 1,11 
__* bits Or*. 1.5 a 
3,29 prepare 
X] S cnt 


0253 0309 
u 0260 0324 

" 00 34 

- 0006 

e. vacant 

re to punch 7 digits 

>t character of W to B 

0041 

0451 

- 0136 

- 0211 
re vacant 

to pfint 5 digits 




1 1 1 1 1 1 1 




.___. 1- 1_L. 

__j a 2,0 




! 1 1 1 1 1 1 




__i__X_.|0._jQ_jQ___ 
_i__.i. iS (0. il. i5j7_ 
_j_.i.. L T jp_.il. _3_.3.. 
._..., ._., j.BjO. 2 i0 2 
..____i._.jC£_,4__0__ ._ 
_J.__ l _.._Bf ,1 ,5 2. 
... i_j..-.lU|0 JO a ,1. 
._i __X.iY|0 jO i0 J) 
___._. i.S|0 ,1.4 3 . 
ii iTg 2. 2 i 


I 
i 




1 1 1 1 L L _L 




, i 2,1 




1 '-■ - L 
1 ! I 1 i 1 1 


, , 2,2 




1(11111 




...__._._„__ 
, , 2,4_ 

_._i__i-_5_. 
.. i i_2i6 . 

_._!_ ___?_?_. 

._____._. _.. 
______2_9 




...... 1 1 1 I 1 1 I 




1 1 I I 1 1 _l 




J 1 1 1 J J I 




J- J J _L J 1 J 




III II | 




1 1 1 1 1 1 1 




i 1 I 1 1 1 1 




i i .3,0 

i i 31 


. i i ,Bp ,14 3 
. , CO 4 ,0 3 




1 I i 1 I I t 




CON 


_"IT 


ONAU STOP C 
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____ CARRIAGE RETUF 


?N 



LGP-30 CODING SHEET 

NO. 2 



10 



J4-187 



PROG NO 



PREP BY. 



CK'O BY.. 



PROBLEM. 



J^epos^ional_ .Hex__Punch_ 



.TRACK. 



PROGRAM INPUT 
CODES 



^0 



•_l° 



here 
Ralait 



(W - 

i 



, ,0 



iQ 



,0 



afte 
jjte 



zm: 

L 



0,0 



_L 



[V or 
A| CC 



0,0 



LOCATION 



0,1 : 3,2 



3,3 



. 3,5 



Jji. 



3,7 



0,0,3 



j i_ 



J L. 



J L 



r formin 
Aridrrefi.a 



r W in 



0j_p3 



J L 



J l__ 



J L 



-J— f— '-i-i- 

I I I I I 



3,8 



INSTRUCTION 
OP. ADDRESS 



3,0,3,6,1 



_L_ i- . JJ-t- I i 1 I 1 



3.9 



_i_A0_ 



4,1 



_l_4j2_ 



_i_A3_ 



_.iA4._ 
__i_AL_ 
_.iA6_ 

47 



A§_ 



4,9 



5,0 



iJL 



5,2 



5,3 



5,4 



ii5_ 



57 



i„5A 

5,9 



, 5,0,3,5 ,0 



,B , 0,1 ,5,2 



■ C ,0,4,0, 3 



iB,Jp_i2jXL8 



,U, 0,0, 1,1 



.1. 



w 



WjWj.1l0.l0j._0.j_Q 



^_lXjZj_0 i 0j.0_ j J3 

„_l„ ..___ B{ _._._____. . 
_i_j_iHjJL.4j_3_j.l 



j_x_,U | _0 1 Li.6.j0 

J_.^,.^...,2 

J 1 j t L_ J I 



w 



6,0 



6,1 



6,2 

■ 6,3 j 



_l 1 I L L. 



j.2 



jXjZ.iij.Mii 



-"■ — — t— - -- — l -- 

I ,H | t 4 :. 3 I 3 



J L 



S4_Qj.J0.l2_l.Z 



j_jJJ4J0Ll2 1 1 lL 



1,0,0. 0, 0, 0,0 



1 B 1 , li 4, 6 



J L 



S.i0__4jl_2 



.jT+Ox^.i.Ql.4 
,S, 0, 1, 4,2 



L. + 1 



CONTENTS OF 
ADDRESS 



1 19 prepare shift 1st character of W 



M 



*U_ui 



±1 

— bits O-* 11 a 



4 .29 prepare 



S cnt digits 



to 3 



0255 



0325 



UTZT 



re vacant 



:o print 6 



U 23 preparb to shift 1st characte r 



of 



to 3 



&L>15. 



0423 03^3~ 
B(Ln) Bring m 



a 



*i 



Vacant 



(L f h 4- 1) then la 



ter (Lfh-H - Lo h) 031-8-0 328 



_l^LL 



Vacant 



J/yL 



1,30 



Vacant 



-L>3JL 



4,29 



NOT used 



W 



0163 



32f 



0128 



0130 



040T~ 4110 0306 0103" 
W ord to examine — -0 1 08 
0TEU 



0331 



020~6 



~0~ZUF 



"0TZ5" 

0137 



0262" 



X^li 



To TE$T for 11-*15 vacant 
- .0455. 



0209, 0406 

f.xit tpst fn r_jc4rnrnajad_Q .r_ Jxex 

0121 



JU7- 



i^A 



Vacant 



^ 



BILn) To see 



NOT in Hex Area 



^ (Lfh + 1) 



==nn4"6 

if W is within.Ao_h.Alh 



B(Loh) to be punched in hex regardles = 



Loh) 



CONDITIONAL STOP CODE 
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CARRIAGE RETURN 



D7387I y ™EE TORONTO. CANAD* 
FORM »fl02 



LGP-30 CODING SHEET 
NO. 1 



J> OF. 

J4-187 



10 



PROG. NO.. 



_ PREP BY. 



CKO. BY 



JLepasitional H e x Pn ncL 



PROGRAM INPUT 

CODES 


0. 




LOCATION 


INSTRUCTION Q 
OP. ADDRESS « 


CONTENTS OF 
, ADDRESS 


NOTES 


— r 


1 


^ 
















OiJL, 0,0 


1 

i , ,T | , i i 1 


W wiflriri Anh / 


Lfh^rjuixch-a-s. iiex_ 


i i i 1 i i i 




, , 0,1 


, i ,0 10,2,0,4 


Aoh \W \Afh 








, i 0,2 


i ,X ,Z | , , i 5 


_i _i J- 


0123 






, ; 0,2 




XI Vacant 








, i 0,4 


, , ,6,0,4,3,3 


W 


- 0162 

- 0201 






i , 0,5 


, , ,T ,0,4,0 ,6 


-W either hex 


or -inst. 






, ,0,6 , , ,S ,0 ,1 ,4,9 


1,30 








, i 0,7 


, , ,T , , , 4 , 5 


xi —w = o 








, , 0,8 | , , A ,0 ,1 ,5 ,1 


1,30 








i . 0,9 


, , ,R | , 1 , 5 , 6 


7 

check for Com: 


mand or hex and form 






, i 1,0 


. i ,U , , 2 , 4 , 3 


relative or abs 


olute command 






, , 1,1 


, , ,U | , 1 , 2 , 9 


p\] -*■ Command 


— 0156 
W-l 15 IN ACC 






r _L jJl2 


__l j___A ( L 3 , 6 J. 


1 .1 '£ Routine 


— 0048 






i j^3 


, i iU , , , 5 , 


J ' 




. ■ i 




, ,1,4 




NOT USED 




1 




■ , 1,5 


i 
, X ,B | , , , 


Ixl 1,15 


0250 






, i 1,6 


1 
, , A. | , 3 , 5 , 9 


" 9 

1,1 >SRoi 


— 0050 
^tine —0052 






, ■ 1,7 


1 
, , ,U | , , 5 , 4 


J L 








. . 1,8 


1 
i ,x ,Z , , 1 , , 


1,23 


0139 






, , 1,9 


, , A 1 , 3 , 6 , 2 


K] 1,1 7 2 R 


outine — 0061 






, , 2,0 


, i , u , , 6 , 2 


" n ~ 








i i 2,1 


i , ,S .0 ,0 ,3 ,6 


1,19 - 1,15 


— 0129 






, , 2,2 


, i ,T ,0 ,2 ,2 ,8 


— 0-19 Vacant 








, , 2,3 


, , 3,0,0,3,8 


X 2,29 Prepar 


e to puch 4 digits 






, , 2,4 


1 
i i ,0.0,4,0,3 


S cnt 


h 






i , 2,5 


, i ,6,0,3,5,4 


' 1,15 prepare t 


o move 1st character 






, i 2,6 


, i ,U - , , 1 , 1 


of W to 3 






i , 2,7 


, ,X P j , , , 


X constant to t 


r t, J 0248 

sst for P order 






, , 28 


i i ,S|0i3i4i3 


1,23 - 1 19 


— 0222 






, , 2,9 


, i ,T | , 2 , 3 1 5 


/ 1 

— O — 23 Vac 


ant 


i I i I i i i 




, L 3,0 


_..j._j._iB_ f 0_ l 3. 1 4 a 5._ 
, , ,0,0,4,0,3 


1.. Ij29 prepare J 
X S cnt 


o punch 3 digits 


1 L. I I i I i 


i i 3,1 






C94I15 *Cfiff TORONTO C»N«0< 



CONDITIONAL STOP CODE 
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CARRIAGE RETURN 



LGP-30 CODING SHEET 

NO. 2 



PROG NO 



PREP BY 



CK D BY_ 



JJL 



J4-187 



PROBLEM- 



R epos itional Hex Punch. 



PROGRAM INPUT 
CODES 


Q. 

° LOCATION 


INSTRUCTION 
OP ADDRESS 


a. 



K 


CONTENTS OF 

ADDRESS 


NOTES 


T " 

1 1 1 J ! 1 1 


' 


Oi__..3_ 

_„_l._3 
, , 3,4 


. , . j . , Bj , 4 , ..0., 4 
...i...i..iU,0 1 J .L I l. 

J. - i X X . 1 -_ .1 










■ — 


1 { 1 1 1 1 1 


prepare to mo 


ve 1st character of W tc 


1 
1 1 1 1 1 1 1 


1 




1 = 3 




Vacant 






_i l3j5 


S 3 5 7 

_i i j- .,. t .. i . _i_ 




XI 1,27 - 1,23 


— 0229 






l_i 3,6 


i____^0 3, LI 


• 


— * O — - 27 vacai 


it -to punch last digit 






, i 3,7 


i , ,0,0,4,5 ,9 ' 


zero ACC 








i i 3,8 


._j_.x___4JJ__.1___.. 


1 


S . nt — O Tnp 


ii rh .. digits 






, , 3,9 


XI 1.7 to shift 


1st character of W to 






, , 4,0 


_ 1 _ 1 _ x U f 1 J .l ± l 


r 




q =0 






, , 4,1 


1 I 1 1 1 1 


i 


Vacant 








_ _l i 4£ 


. _1_ 1 1 1 1 1 i 
__.,_.._, ,E,0 £ Z ,5 t 8 

i j t ^ | U 1 2 i b j 2 


i 


Vacant 






_... 


._i .i._4»3 

..___! _4|4_ 

x i 4,5 


t 
i 


XI 7WW0 J002 


extract to zero Inst bits 




1.30 


r8i.7 






..j. ... iT f p,2,4 L 7. 
_ i i iU,0 ,0,0,1 
_i j ^,0,4^ <3 


■ 


•— Command 






— 


, , 4,7 


i 


— Hex 




Command — - 


XI w 


~-0245 


1 




, , 4,8 


. i_. .i .. i.Sj.0 j.2_j_2__ t T__ 

_i_ _l iT i0 ,2 i5 i2 
i _a j_S|0i2il i5 


i 


XP 0000 






- — 


__i x 4 L 9 
i i 5__ 


i 


-—not a P ord 


»r 




XB0000 








, , 5,1 


, , ,T|0 ,4 ,1 ,3 


XI ~* P order — • 


Dunch absolute comma- 






, , 5,2 


i i iE ( ,4 ,3 ,1 


• 


XZ 2636 pull T 


rack _. Sector ~~ 024 9 






, . 5,3 


i i i S|0 ,1 1 1 ,8 


i 


ZM 




cheqk fo .s^e ^f , 




i . 5,4 


, , ,T,0 ,4,1 ,3 


i 


-* punch absoli 


te command 


A p <[ Aw,< Afi , 




±_,___ 


i__i_ iS|0 J L 3 x 4 


i 


XI (Lf + 1 -m) 




1 1 ! | 1 1 1 




i_._i.A6 


, i ,T|0 ,4 ,2 ,7 


■ 




._ rmnmanrf 


1 1 1 1 1 1 1 





-.__.J__L 

i i 5,8 


i j iU|0 i4 il [3_ 


t 


— punch absoli 


to rnmmand 


, i0i0i0|0i0i0 ,2 


7 jwjwj | j _0_i2_. 

__ __ t ._l.. -1.__.__. 

_i j _S j j 1 j 1 18 


i 


MA_JKJ.Q-._e r o_ 
p< l_j30 


T . U-. 0243 

Inst bits 


i i i 1 i i i 





___L_5 L 9_ 

. i 6,0 


0244 


i i i 1 i i i 


i 
■ 


ZM Form -Z-v 


- 0429 

[ 


i i i 1 i i i 




, , 6,1 


, , A | 0,4, 3 ,3 


W W-AM = r 


ilative command 


i i i 1 i i i 


- — 


_ i. l 6,2. 
, , 6,3 


1 . i 1 1 I 1 


i 
i 






i i i i i i i 


X Vacant 


nniM MCBft TORONTO. CAMD& 



FORM /B02 



CONDITIONAL STOP CODE 
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CARRIAGE RETURN 



LGP-30 CODING SHEET 

NO 1 



PHOG NO 



PREP BY 



CK D BY 



PROBLEM . 



Repositio nal Hex Punch 



PAGl ' . ... OF 1 - 

J4-187 

□ A It 

TRACK . ._ 



PROGRAM INPUT 
COOKS 


a. 




LOCATION 


OP. 


NSTRUCTION 

ADDRESS 


D- 

h 
L. 


CONTENTS OF 
ADDRESS 


NOTES 


1 
II 


• 


5. 

0,"2>, o,o 


.... I 1_ 

i. l._ 


_iR f 0. L 4 1 4 L 7 

_ l U H L 4 x 3...6 

,A ! , 3 , 4 , 7 


t 


> To read Lo. 
BINIZE L.Lf ma 
1^29 


— 0341, 0356 

_jI . ..... 

ke B(Lf> 

— 0447 

LnL = B(Lo) 

. -27 Vacant '" — 023 6 

to. 21 

digit 

r~ -03 10 

h 


.1 
_...! 

1_ 

X 


1- ... 1 | L .1 1 
_____., J...1 _._ 

-j. — i — 4 i ._-...__._ 

i — i i — i._i i . 


' 


— 


______i____2. 


L_ 

L. 


-1- J l-_.i__l L_ 




. . 0,3 


1 1 


iC|0,4,2,6 


1 


X] B(Lf + 1) 


-J L__L _L _1 _L_ 


■- 


_ a i 0,4 


1 1 


,R 1 0,4,4,7 


1 


> BINIZE L,Q__ 


1 

__ 

— L. 
1 . 


-1 -1 I 1 1 ..L 


__l i<_ 


1 L. 

--.__...!. 

_1_.__ 

. i__. i„ 

_ _l._-.__ 

... .!_.. 1 

_. 1 __J. 

_____ . 1 .._ 
..._l_...l_. 

L... l._ 

1 1 


.iUl_Q.i_4j.5iO 
_C t P_J__4_6. 
i__,Qi4 L 4,7 
,U ,0 ,4,3 ,5 

_.iY | 0_ l 1_j.I.i_8 

iU,0 1 3 J .l 1 4 
16,0,4,3,3 
iN,0,4i3,4_ 
_.y ) P,0 i 4,2 
1^,0,4,4,7 
iU f 0i4 L 3i5 


1 
1 
1 

1 
1 

1 




-__l_4_l.__.___ 
-1- -__- 1. LI L 


----- 


.....i_.i.M 

_.J_._Qj7._ 

. ___ a M 

—L_i_0i9. 

._l._lJ.oO_ 

._.L...l._ll1... 
.-X.l.Jl? 

-i._j_J.i3_. 

..L...1.14. 
_J L_1|5 

_____ 1i6 


B(Ln) now, B 


X3> Read M 
BIN M 

ZM 

__ 

S_W f 3.I 

1^21 shift left 
-*■ to punch last 
> Read Loh L a 
X] binize Lfh 


t 

I I I 1 I I 


. . .1. 

!_ 

L. 


- J - i -| >~ 1—1 — 

-__ L.I 1 _| L 




1 

-i— 1-1— ■"- J — L- 
__1 _l.__.l_ X. .1 __L 


T 
1 


I 

1 l i i i i i 




. 

-1 L 1 I _J L 




-111 1 .. L 1 . 




_.___ iX 

1 1 


__E__l.l__6_0.iO. 
,A , , 3 , 4 , 7 


CR 




J L 1 1 1 1 1 




i , 1,7 


• 


1,29 




1 1 1- 1 1 1 1 . 




. . 1,8 


i i .C | | 1 | 4 | 2 


• 


-_> 

B.Lfh + 1) 




1 1 __,-. 1 1 1 




i , 1,9 


______ ,£,0,4,4,9 




^ CRNT ^O 




J J 1 | 1 I ._j 




, , 2,0 


, , ,R , , 4 , 4 , 7 


1 


> BIN 






-J 1 | 1 1— -1 




, , 2,1 


i , ,U, 0,4,4,9 


' 


Loh 






a . i 1 ii i 




, , 2,2 


i i 


,0,0,4,1 ,2 


t 


B(Loh) 




1 1 J_ A.. .1 1 




. , 2,3 


i i 


_iB_|0i4, 2.1.6 
1 S 1 1 1 1 1 1 8 




X B(Lf + ]) 




1 1 L...1. .1 II 




, , 2,4 


i i 


• 


ZM 




.-- 1 ■ 1 1 1 1 1 L__ 




__i _________ 


i 
i i ,Y | 1 1 i 3 1 4 


t 


(Lf + 1-M) 




1 1 1 L ______ 1 . 




i _____ 


i i iBjO.l ,4,2 


- 


B.Lfh + 1) 




— ' -—1—4 1 1 1 




________ 2_7__ 


i i ,S ,0 ,4 i 1 ,2 




XI B(Loh) 






-i- 1 1 II 1 . 




. J____-.8_ 


i i 


iCiOil i4,2 


r 


L f h + 1 - Loh 




J 1.. 1 II 1 




i i 2,9 


, , ,0,0,4,4,0 


s —0 




1 1 1 1 1 1 1 




l _ L 3,0 

, , 31 


j. ... 
i i 


_BjQ_4,2 L 6 
iS 1 , 1 ,4,6 




B.Lf + 1__ Fo 
X]B(Ln) Ln = I 


rm Number of Sectors tD 

punch in TTSS 
now form TTSS = N 


1 ' J - L 
1 1 .... 1 1 1 I i 



MO (._......» 



CONDITIONAL STOP CODE 
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S 



CARRIAGE RETURN 







Repositior 


LGP-30 CODING SH 

NO. 2 

PRFP HV r. 


K'D. BY r>/ 

T 


8 OF 10 

J4-187 

1TC 




ial Hex Punch 


««-* 












PROGRAM INPUT 
CODES 


a. 


H 
1/1 


LOCATION 


INSTRUCTION 
OP. ADDRESS 


0. 



h 
i/J 


CONTENTS OF 
ADDRESS 


NOTES 




1 
1 1 1 1 1 1 1 


1 


n 

0,3, 3,2 












1 1 1 I 1 1 1 


r 




1 1 1 1 ! ! 1 


, .XiZ 1 1 , 6,0,0 






Halt to turn on 


punch 




1 1 1 1 1 1 1 




1 i 3,3 


, iXiPj li 61 4i 8 






CR 






1 1 1 1 1 I I 




, , 3,4 


1 , ,R| 0, 1, 1 1 6 






> to print N 1 (' 


with l t 31 & add N to S) 




1 I 1 I 1 1 1 




1 , 3,5 


1 1 ,U|0, 3, 5, 1 






XI and commen 


ce punch out 




hqrei for .end area 




1 1 3,6 


, , ,6,0,4,4,0 






2 






i i i | i i i 




, i 3,7 


1 , ,^0,4,3,3 






W 






i i i 1 i i i 




, 1 3,8 


, ,X,Z j 3, 2, Z , 4 






delay 






i i i 1 i i i 




, i 3,9 


1 1 ,R| 0i 1, I, 6 






XI > Print S* % 


i/ith 1 at 31 




i i i 1 i i i 




, , 4,0 


, 1 , U | , , , 1 












i i i 1 i I i 




, , 4,1 


1 
i , ,U, 0, 3, 0, 






to read next A< 


. —0116 

3 Af 




i i i i i i i 




, 1 U 


, ,X,Z 0,0,0,0 






Vacant 






, ,0,0,0 o,o, 03 




, , 4,3 


1 

w w ( w,w,w, 1 , 0,0 

. i i- -1. . 1 j 1 


- 




XI 1,23 - 1,19 


0228 




1 1 1 1 1 1 1 




_x_i_4.4_. 










1 1 1 1 1 1 1 




_x _xA5 


__1....J . 1 X .. 1 . X... ..&. 

L L -■■■! ■-' ' - J - 
j 1 j. 1 j 1 j4- 






U 


100 0230 




1 1 1 1 1 1 1 




x. 1 4,6 


- 




Vacant 






1 1 1 1 1 1 1 




, . 4,7 


* 


8 0104 0302 0317 
0400 




1 1 1 1 1 1 1 




l_x M_ 


1 -X Lil 




Vacant 






1 1 1 1 1 1 1 


— 


x i 4 L 9 


wiwj li 0,0 l OaOjO 
, , ,H, 0, 4, 3,3 










x x 5,0 






1,11 - 1 ,7 


0135 








. . 5,1 


X V — PrepaJ 


e to p print N 1 ~ 0335 








, 1 5,2 


, , ,11,0,3,6,3 
















. , 5,3 


, ,X, 2,0,0,0,0 






Vacant 










, , 5,4 


, ,X, 6,0,0,0,0 






1 j 15 


0225 




1 1 1 1 1 1 1 


, 


__j „x 5,5 

..i.._i..M.. 

. 1 1 5,7 
x 1 5,8 

_..L.._L_5|?_. 

_.j_.i._6iP_ 

, , 6,1 


x ^PjJ^Oj.O 






X CR to give 


— 0000 
initial CR 




1 1 1 1 1 1 1 


, , ,U, 0, 3, 0,0 






to read Ao Af 






1 
, ,0,0,0, 0,0,0, & 


w,w t w 1 WjW JL w i l t 






1,27 - 1.23 


0235 




1 1 1 1 1 I 1 


, 1 I , . 1 






■ — j ■ ■ ■ 7 
Vacant 








4. l o J .o i o 4 o x o i o; L o 

1 . >. | . 1 . . 1 , 

. 1 , .1,0,0,0 






*I 1.1 


0216 




fill 11 i 






Vacant 






1 1 1 1 1 1 1 






1.19 


0132 








......l_L_6xL. 

, , 6,3 


1 
4 ,0 j ± , L L 0j 

1 1 ,B, 0, 1, 4, 6 






V 


0212 0219 




1 I 1 1 ] 1 1 


? - - - 

XTo initialize 


B(Ln) to B(Lo-l) ~~ ° 352 




CON 


DIT 


ONAL STOP C 
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■^N CARRIAGE RETUF 


DTJI7* MC6EE T0H0NT0 CAN«0A 
FORM #»02 



LGP-30 CODING SHEET 

NO 1 



PROG. NO. 



PREP BY 



CK'D. BY.. 



10 



J4-187 



DATE 



PROBLEM. 



Re po sit ional Hex P un ch 



PROGRAM INPUT 
CODES 



he 



re. 



J__ 



^O 



CR 



LOCATION 



o,4 , ,0 



0,1 



J_2. 



Oil 



0.4 



0,5 



0,6 



0,7 



0,8 



0,9 



1.0 



IiL 



1,2 



1.3 



lil 



1,5 



1,6 



INSTRUCTION 
OP. ADDRESS 



i.._____ + ___1l___ 
U, 0, 0, 0, 1 



_L_ J 1 



1 i . 0,0. 0,0 



1A 



R ,0 , 1,5,6 



iU. 0.2,4 ,3 



1U1 0, 0, 0. 7 



__.L___i_3_J_ 



____Ji___4j_2_l 



1 i0.jQ.|.P.iQ L 0j0 

.XaBj.O i 0. 1 0.jiL 
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